home *** CD-ROM | disk | FTP | other *** search
/ 3D World 76 / 3DWI76.iso / pc / Shared.cst / 00007_Script_field weblink < prev    next >
Text File  |  2006-02-08  |  3KB  |  121 lines
  1. global currentmember,pointclicked,wordnum,wordtext2,wordtext
  2.  
  3. property scrollmode
  4. property Sp
  5. property cStart
  6.  
  7. on mouseDown me
  8.   scrollmode = "scroll"
  9.   cStart = sprite(me.spritenum).top + (sprite(me.spritenum).height / 2)
  10. end
  11.  
  12. on mouseUpOutside me
  13.   scrollmode = "off"
  14. end
  15.  
  16.  
  17. on mouseup me
  18.   scrollmode = "off"
  19.   wordText = currentMember.word[wordNum]
  20.   --    put "Clicked word" && wordNum & ", the text" && wordText
  21.   
  22.   if wordtext contains "@" then
  23.     -- alert "you clicked email address"&&wordtext
  24.     gotonetpage ("mailto:"&wordtext)
  25.   else
  26.     nothing
  27.   end if
  28.   
  29.   if wordtext.char[1..7] = "http://" then
  30.     gotonetpage (wordtext)
  31.   else 
  32.     nothing
  33.   end if
  34.   
  35.   if wordtext.char[1..8] = "https://" then
  36.     gotonetpage (wordtext)
  37.   else 
  38.     nothing
  39.   end if
  40.   
  41.   if wordtext.char[1..4] = "www." then
  42.     gotonetpage ("http://"&wordtext)
  43.   else 
  44.     nothing
  45.   end if
  46.   
  47.   
  48. end
  49. on linkUpdate me
  50.   
  51.   --  repeat with i = 1 to sprite(me.spritenum).member.word.count
  52.   --    if sprite(me.spritenum).member.word[i].char[1..7] = "http://" or sprite(me.spritenum).member.word[i] contains "@" then
  53.   --      sprite(me.spritenum).member.word[i].fontstyle = [#bold]
  54.   --      sprite(me.spritenum).member.word[i].color = rgb(230,150,0)
  55.   --      
  56.   --      
  57.   --    else
  58.   --      sprite(me.spritenum).member.word[i].fontstyle = [#plain]
  59.   --    end if
  60.   --    
  61.   --  end repeat
  62.   
  63.   t = sprite(me.spritenum).member
  64.   repeat with i = 1 to t.word.count
  65.     if t.word[i].char[1..7] = "http://" or t.word[i] contains "@" or t.word[i].char[1..4] = "www." or t.word[i].char[1..8] = "https://" then
  66.       t.word[i].color = rgb(204,204,204)
  67.       --      t.word[i].font.underline = true
  68.     end if
  69.     
  70.   end repeat
  71.   
  72. end
  73.  
  74.  
  75. --on beginsprite me
  76. --  t = sprite(me.spritenum).member
  77. --  repeat with i = 1 to t.word.count
  78. --    if t.word[i].char[1..7] = "http://" or wordtext2 contains "@" or wordtext2.char[1..4] = "www." or wordtext2.char[1..8] = "https://"then
  79. --      t.word[i].color = rgb(255,255,255)
  80. --    end if
  81. --    
  82. --  end repeat
  83. --  
  84. --end
  85.  
  86. on exitframe me
  87.   if scrollmode = "scroll" then
  88.     
  89.     sprite(me.spritenum).member.scrolltop = sprite(me.spritenum).member.scrolltop + ((the mouseV - cStart) / 10)
  90.   end if
  91. end
  92.  
  93.  
  94.  
  95. on mousewithin me
  96.   --cursor on
  97.   cursor 260
  98.   pointClicked = the mouseLoc
  99.   currentMember = sprite(me.spriteNum).member
  100.   wordNum = sprite(me.spriteNum).pointToWord(pointClicked)
  101.   
  102.   if wordnum <> -1 then
  103.     wordText2 = currentMember.word[wordNum]
  104.     
  105.     
  106.     
  107.     if wordtext2.char[1..7] = "http://" or wordtext2 contains "@" or wordtext2.char[1..4] = "www." or wordtext2.char[1..8] = "https://"then
  108.       cursor 280
  109.  
  110.     else
  111.       cursor 260
  112.     end if
  113.     
  114.   end if
  115. end
  116.  
  117.  
  118. on mouseleave
  119. cursor -1
  120. end
  121.